00010		SUBROUTINE SMOOTH(JQ)
00020		COMMON/ED/KX,NEXT,NN,NX,NY,J
00040		COMMON /RC/MCLEF(200),IST(4000),MFILL(200)
00060		COMMON /RZ/RSZ,IPLT,RJB,CENTR
00100		DIMENSION BUF2(700)
00200		COMMON X(100),Y(100),N,X1(512),Y1(512),S(100),K
00400		DO 1 K=2,J
00600		CALL UNPACK(K,JA,JB,MCLEF)
00610		X(K-1)=(JA+RJB)*RSZ
00620	1	Y(K-1)=(JB+CENTR)*RSZ
00630		X(J)=999.
01300	4	N=J-1
01900		CALL SS
01950		IF(JQ.NE.' ')CALL HYDPOG(1)
02000		CALL DPYSET(3,BUF2,1000)
02100		CALL AIVECT(IFIX(X1(1)),IFIX(Y1(1)))
02200		DO 5 K=2,512
02300	5	CALL AVECT(IFIX(X1(K)),IFIX(Y1(K)))
02400		CALL DPYOUT(3)
02500		CALL SETPOG(1)
02600		END